inherited frmSelectBatch: TfrmSelectBatch
  Left = 401
  Top = 260
  Caption = #36873#25321#25209#21495
  ClientHeight = 309
  ClientWidth = 648
  ExplicitWidth = 654
  ExplicitHeight = 334
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlBottom: TPanel
    Top = 254
    Width = 648
    ExplicitTop = 254
    ExplicitWidth = 648
    inherited btnOK: TcxButton
      Left = 480
      Top = 7
      ExplicitLeft = 480
      ExplicitTop = 7
    end
    inherited btnCancel: TcxButton
      Left = 563
      Top = 7
      ExplicitLeft = 563
      ExplicitTop = 7
    end
    object cxLabel1: TcxLabel
      Left = 20
      Top = 12
      Caption = #36807#28388#25209#21495
      Transparent = True
    end
    object edtBatchFilter: TcxTextEdit
      Left = 80
      Top = 10
      TabOrder = 3
      Width = 121
    end
    object btnAll: TcxButton
      Left = 268
      Top = 7
      Width = 75
      Height = 25
      Caption = #20840#36873'(&A)'
      TabOrder = 4
      OnClick = btnAllClick
    end
    object btnClear: TcxButton
      Left = 353
      Top = 7
      Width = 75
      Height = 25
      Caption = #20840#28165'(&X)'
      TabOrder = 5
      OnClick = btnClearClick
    end
  end
  object cxGridBatch: TcxGrid
    Left = 8
    Top = 8
    Width = 629
    Height = 244
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 1
    object ViewBatch: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      OnCellDblClick = ViewBatchCellDblClick
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsBatch
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Footer = MainDM.bsTitle
      Styles.Header = MainDM.bsTitle
      Styles.Selection = MainDM.bsSelect
      object ViewBatchselected: TcxGridDBColumn
        DataBinding.FieldName = 'selected'
        HeaderAlignmentHorz = taCenter
        Width = 51
      end
      object ViewBatchbatchcode: TcxGridDBColumn
        DataBinding.FieldName = 'batchcode'
        HeaderAlignmentHorz = taCenter
        Width = 246
      end
      object ViewBatchquantity: TcxGridDBColumn
        DataBinding.FieldName = 'quantity'
        HeaderAlignmentHorz = taCenter
        Width = 120
      end
      object ViewBatchassqty: TcxGridDBColumn
        DataBinding.FieldName = 'assqty'
        HeaderAlignmentHorz = taCenter
        Width = 120
      end
      object ViewBatchProductDate: TcxGridDBColumn
        Caption = #29983#20135#26085#26399
        DataBinding.FieldName = 'productdate'
        HeaderAlignmentHorz = taCenter
        Width = 100
      end
      object ViewBatchValiddate: TcxGridDBColumn
        Caption = #21040#26399#26085
        DataBinding.FieldName = 'validdate'
        HeaderAlignmentHorz = taCenter
        Width = 100
      end
    end
    object LevelBatch: TcxGridLevel
      GridView = ViewBatch
    end
  end
  object dsBatch: TDataSource
    DataSet = cdsBatch
    Left = 196
    Top = 180
  end
  object qryBatch: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      
        ' SELECT cast(0 as bit) as selected, b.batchcode,round(b.quantity' +
        '/u.rate,4) as quantity'
      '  ,b.assqty,b.productdate,b.validdate FROM tt_bookbatch b'
      
        ' left join td_unitprice u on (b.productid=u.productid and u.u_no' +
        '>0)'
      '      WHERE b.depotid =:depotid AND b.productid =:productid'
      '      and u.unitid=:UnitID')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 24
    Top = 164
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'depotid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'productid'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'UnitID'
        Value = nil
      end>
    object qryBatchselected: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'selected'
    end
    object qryBatchbatchcode: TStringField
      DisplayLabel = #25209#21495
      FieldName = 'batchcode'
      Size = 200
    end
    object qryBatchquantity: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'quantity'
      ReadOnly = True
    end
    object qryBatchassqty: TFloatField
      DisplayLabel = #36741#21161#21333#20301#25968#37327
      FieldName = 'assqty'
    end
    object qryBatchproductdate: TDateTimeField
      FieldName = 'productdate'
    end
    object qryBatchvaliddate: TDateTimeField
      FieldName = 'validdate'
    end
  end
  object dspBatch: TDataSetProvider
    DataSet = qryBatch
    Left = 76
    Top = 168
  end
  object cdsBatch: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBatch'
    Left = 140
    Top = 172
    object cdsBatchselected: TBooleanField
      DisplayLabel = #36873#25321
      FieldName = 'selected'
    end
    object cdsBatchbatchcode: TStringField
      DisplayLabel = #25209#21495
      FieldName = 'batchcode'
      Size = 200
    end
    object cdsBatchquantity: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'quantity'
      ReadOnly = True
    end
    object cdsBatchassqty: TFloatField
      DisplayLabel = #36741#21161#21333#20301#25968#37327
      FieldName = 'assqty'
    end
    object cdsBatchproductdate: TDateTimeField
      FieldName = 'productdate'
    end
    object cdsBatchvaliddate: TDateTimeField
      FieldName = 'validdate'
    end
  end
end
